0 REM << CD42-2 >>
1 REM ==================================
2 REM    COMMODARES PROBLEM #38-1 :
3 PRINT"[147] PARM PASS "
4 REM    SOLUTION BY
5 REM    JOSEPH WRIGHT
6 REM ==================================
7 REM      ==== SAVE 10-40 AS PRG1 =====
10 INPUT"WHAT IS A";A
20 IF DS$="" THEN POKE 198,1:POKE 631,13 : GOTO 40
30 POKE 208,1 : POKE 842,13
40 PRINT"[147]  ";A:LOAD"PRG2",8
44 REM
45 REM      === SAVE 50-60 AS PRG2 =====
46 REM
50 A=0:INPUT"";A
60 PRINT"A IN PRG2="A